home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1987 / SCHINDLR.S < prev    next >
Text File  |  1988-07-09  |  975b  |  45 lines
  1. ;      SCHINDLR.S
  2. ;      MICHAEL SCHINDLER
  3. ;
  4.        JMP     START
  5. NULL   DAT     0
  6. TRAP   MOV     NULL,   -2
  7.        DJN     TRAP,   -3
  8.        JMP     TRAP
  9. KILL   MOV     NULL,   <TARGET
  10.        JMN     KILL,   TARGET
  11.        MOV     #NULL-2-TARGET, TARGET
  12.        MOV     #-10,   TARGET
  13.        JMP     KILL
  14. TARGET DAT     -6
  15. WHAT   DAT     10
  16.        JMP     @90
  17.        JMP     @80
  18.        JMP     @70
  19.        JMP     @60
  20.        JMP     @50
  21.        JMP     @40
  22.        JMP     @30
  23.        JMP     @20
  24.        JMP     @10
  25. ABS    DAT     46
  26. WHERE  DAT     -25
  27. FLAG   DAT     1
  28. START  MOV     @WHAT,  @WHERE
  29.        SUB     #10,    WHERE
  30.        DJN     START,  WHAT
  31.        ADD     #100,   ABS
  32.        MOV     #10,    WHAT
  33.        JMN     START,  FLAG
  34.        SPL     KILL
  35.        SPL     TRAP
  36. WORK   SPL     0
  37.        MOV     NULL,   <TARGET
  38.        MOV     NULL,   <TARGET
  39.        JMP     -2
  40. PRISON MOV     NULL,   0
  41.        MOV     #0,     FLAG
  42.        SPL     WORK
  43.        JMP     -1
  44.        END
  45.